home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 May / Macworld (1998-05).dmg / Games World / Shareware Games / Arcade / Supreme Commander / Supreme Commander.mac / 00065.ls < prev    next >
Encoding:
Text File  |  1996-01-30  |  619 b   |  27 lines
  1. on mouseDown
  2.   global GHOR, GVERT, origv, origh, puller, shaker, occupied, donothing
  3.   exit
  4.   if (the visible of sprite 48 = 1) or (donothing = 1) then
  5.     exit
  6.   else
  7.     if the puppet of sprite 24 = 1 then
  8.       puppetSprite(24, 0)
  9.       go("retract")
  10.     else
  11.       if the visible of sprite 17 = 1 then
  12.         WARNING()
  13.         exit
  14.       else
  15.         set occupied to 0
  16.         set shaker to 1
  17.         set the visible of sprite 11 to 0
  18.         set puller to the clickOn
  19.         set GHOR to the mouseH
  20.         set GVERT to the mouseV
  21.         setpoint()
  22.         whipitoutBOTTOM()
  23.       end if
  24.     end if
  25.   end if
  26. end
  27.